library(tidyverse)
library(sf)
library(geojsonsf)
library(mapview)
Start by loading ArcGIS data from SJ Open Data, listed at https://drive.google.com/file/d/1jurudjAPTcsmsb4FCiiM4ykO3J6G6_pM/view.
See https://cran.r-project.org/web/packages/geojsonsf/vignettes/geojson-sf-conversions.html for package to easily convert online geojson to sf. From the Small Cell page, click APIs and copy the GeoJSON url.
smallcell <- geojson_sf("https://opendata.arcgis.com/datasets/d4cfb53686784b63b6da726786769c64_198.geojson")
mapview(smallcell, zcol = "SCREENINGSTATUS")
smartpole <- geojson_sf("https://opendata.arcgis.com/datasets/d4cfb53686784b63b6da726786769c64_229.geojson")
mapview(smartpole)
wifi <- geojson_sf("https://opendata.arcgis.com/datasets/d4cfb53686784b63b6da726786769c64_221.geojson")
mapview(wifi)
facebook <- geojson_sf("https://opendata.arcgis.com/datasets/d4cfb53686784b63b6da726786769c64_222.geojson")
mapview(facebook)
# fixture <- geojson_sf("https://opendata.arcgis.com/datasets/d4cfb53686784b63b6da726786769c64_228.geojson")
# mapview(fixture)
# unknown <- geojson_sf("https://opendata.arcgis.com/datasets/d4cfb53686784b63b6da726786769c64_227.geojson")
# mapview(unknown)
freewifi <-
read_csv("sj_freewifi.csv")